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| RMSPROBE ep-1984 01:57:38 VAX=-11 Bliss-32 V4 0-748 Page 
ep-1984 13:01:34 DISKSVMSMASTER:CRMS.SRCJRM3PROBE.B32;1 (1). 
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; 1 0001 © MODULE RM3PROBE (LANGUAGE (BL S832), ; 
; ¢ O08 8 IDENT = ‘'v04-000' 3 
; 00 )s 3 
13 : Ope : BEGIN : 
: § Boe 1 OT ATITI TELE TELE LEE LETTE ELITE LETTE TTT TTT TTT TTT : 
5 1 !® * : 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
: 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
: 19 id : :* ALL RIGHTS RESERVED. * F 
Py Hed * | Ps 
; 1 gts 1 !* THIS SO” TWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: i Bate : w TRANSFERRED. * : 
Ps .* ® : 
; 19 0019 1 !* THE INFORMATION IN THIJS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
3 $3 B0S3 ! be CORPORATION. ® F 
3 '® * 3 
; 23 0023 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
;. & 0025 1 !* * 3 
.: = 0026 1 !* * 3 
4 44 0027 1 LEER EERE EEE EERE e 
 . 0028 1 3 
eee 0029 1 !+¢4 3 
a 0030 1! : 
: HH ohh : FACILITY: RMS32 Index Sequential File Organization 3 
oe 0035 | i ABSTRACT: | ; 
; 0034 1! Subroutines to probe large structures ; 
;. 0035 1! ‘ 
; -* 0036 1! $ 
fee 0037 1 ! ENVIRONMENT: | : 
;- BB 0038 1! 3 
; 0039 1! VAX/VMAS Operating System 3 
; & 0040 1! : 
; 67 0041 1 !-- : 
; 62 Rpg 1 ; 
: 43 0043 1! 3 
3 rf bee \ AUTHOR: Wendy Koenig CREATION DATE: 11-JUL-78 11:27 Ps 
; 46 0046 1! : 
: 47 0047 i ! MODIFIED BY: : 
: 68 0048 1! : : 
; «#49 0049 1! v03-003 MCNOO01~ _. Maria del C. Nasr 15-Mar-1983 : 
; 20 Bp30 ’ Reorganize Linkages ; 
; 26 B93¢ 1: v03-002 KBT0227 Keith B. Thompson 23-Aug-1982 : 
$ 27 Boaz ! Reorganize psects 3 
; 25 0055 1! v03-001 KPLO001 Peter Lieberwirth _ 22-Mar-1982 . 3 
; 43 7% Change probe length to 512 from 1024 since 1024 could hit 3 
ee 0057 1! first page of three, last page of three, and omit middle. 3 
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GLOBAL ROUTINE RMSNOREAD_LONG (SIZE, ADDR, MODE) : RLS$JS 


AX-11 Bliss-32 Dae Page 
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ROUTINE VALUE: 
0 if structure is readable 
1 if structure is NOT readable ey Se . 
(values are such since action is taken if the structure 
is not readable and so the code looks cleaner) 


SIDE EFFECTS: 
none 


63 re 
4 ; 
? FUNCTIONAL DESCRIPTION: 
Hf ! subroutine to perform a long or short probe 
89 i CALLING SEQUENCE: 
+ bsbw rm$noread_long (size,addr,mode) 
g i INPUT PARAMETERS: 
9 size of structure to be probed 
94 : address of structure to be probed 
4 mode to do probing in 
97 i IMPLICIT INPUTS: 
98 : none 
99 : 
00 | OUTPUT PARAMETERS: 
none 
0 i IMPLICIT OUTPUTS: 
none 
i 
i 
i 
i 
i 
i 
i 
i 
i 
in 


BEGIN 
LOCAL 
LEN, 
START; 
IF Slee, 16> LEQU 512 
RETURN 
IF PROBER(MODE, SIZE, .ADDR) 
THEN 
ELSE 
3 
need to do long probe 


START = .ADDR; 
LEN = .SIZE 
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RM3PROBE 16-Sep-1984 01:57: VAX-11 Bliss-32 V4.0-74 Pa 
v04- 12-808 -1 382 94:34 ig DLSKSVMSMASTERS CAME SRCIRMSPROBE .B32-4°° (3 
: Library Statistics 
ree mk) that. OE -S.aenelionn w= Syabol§ oooceso ~ Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CRMS .OBJIRMS.L32;1 3109 2 0 154 00:00.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RM3PROBE/OBJ=OBJ$:RM3PROBE MSRC$:RM3PROBE/UPDATE=(ENH$: RM3PROBE ) 


; ptave 98 code + 0 data bytes 


Run me: :03. 
Elapsed Time: 00:13.1 
Lines/CPU Min: 266; 
Lexemes/CPU-Min: 6394 
mee Used: 31 pages 
Compilation Complete 
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